home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VB--_HTML 198205202001.psc / VBHelpCompiler / Test Project / frmAbout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-05-04  |  6.2 KB  |  194 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form frmAbout 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "About NSocks"
  6.    ClientHeight    =   3090
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4680
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3090
  15.    ScaleWidth      =   4680
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin SHDocVwCtl.WebBrowser wB 
  19.       Height          =   375
  20.       Left            =   840
  21.       TabIndex        =   6
  22.       Top             =   1080
  23.       Visible         =   0   'False
  24.       Width           =   375
  25.       ExtentX         =   661
  26.       ExtentY         =   661
  27.       ViewMode        =   0
  28.       Offline         =   0
  29.       Silent          =   0
  30.       RegisterAsBrowser=   0
  31.       RegisterAsDropTarget=   1
  32.       AutoArrange     =   0   'False
  33.       NoClientEdge    =   0   'False
  34.       AlignLeft       =   0   'False
  35.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  36.       Location        =   "res://C:\WINDOWS\SYSTEM\SHDOCLC.DLL/dnserror.htm#http:///"
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "&Ok"
  40.       Default         =   -1  'True
  41.       Height          =   255
  42.       Left            =   2880
  43.       TabIndex        =   4
  44.       Top             =   2640
  45.       Width           =   1575
  46.    End
  47.    Begin VB.Label Label5 
  48.       Alignment       =   2  'Center
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "http://www.naven.net/"
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   -1  'True
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00C00000&
  62.       Height          =   195
  63.       Left            =   1500
  64.       MouseIcon       =   "frmAbout.frx":0000
  65.       MousePointer    =   99  'Custom
  66.       TabIndex        =   5
  67.       Top             =   2280
  68.       Width           =   1695
  69.    End
  70.    Begin VB.Label Label4 
  71.       AutoSize        =   -1  'True
  72.       Caption         =   $"frmAbout.frx":0152
  73.       Height          =   975
  74.       Left            =   240
  75.       TabIndex        =   3
  76.       Top             =   1080
  77.       Width           =   4185
  78.       WordWrap        =   -1  'True
  79.    End
  80.    Begin VB.Label Label3 
  81.       Alignment       =   1  'Right Justify
  82.       Caption         =   "Version"
  83.       Height          =   255
  84.       Left            =   840
  85.       TabIndex        =   2
  86.       Top             =   720
  87.       Width           =   3615
  88.    End
  89.    Begin VB.Image sP 
  90.       Appearance      =   0  'Flat
  91.       BorderStyle     =   1  'Fixed Single
  92.       Height          =   390
  93.       Left            =   240
  94.       Picture         =   "frmAbout.frx":0266
  95.       Top             =   240
  96.       Width           =   390
  97.    End
  98.    Begin VB.Image cP 
  99.       Appearance      =   0  'Flat
  100.       BorderStyle     =   1  'Fixed Single
  101.       Height          =   390
  102.       Left            =   240
  103.       Picture         =   "frmAbout.frx":0968
  104.       Top             =   240
  105.       Width           =   390
  106.    End
  107.    Begin VB.Label Label2 
  108.       AutoSize        =   -1  'True
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "NSocks"
  111.       BeginProperty Font 
  112.          Name            =   "Calisto MT"
  113.          Size            =   21.75
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H00800000&
  121.       Height          =   480
  122.       Left            =   825
  123.       TabIndex        =   1
  124.       Top             =   225
  125.       Width           =   1440
  126.    End
  127.    Begin VB.Label Label1 
  128.       AutoSize        =   -1  'True
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "NSocks"
  131.       BeginProperty Font 
  132.          Name            =   "Calisto MT"
  133.          Size            =   21.75
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       ForeColor       =   &H00000080&
  141.       Height          =   480
  142.       Left            =   840
  143.       TabIndex        =   0
  144.       Top             =   240
  145.       Width           =   1440
  146.    End
  147. Attribute VB_Name = "frmAbout"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152. Private OverLabel As Boolean
  153. Private Sub Command1_Click()
  154. Unload Me
  155. End Sub
  156. Private Sub Form_Load()
  157. If App.Minor < 10 And App.Revision < 10 Then
  158. Label3.Caption = "v" & App.Major & "." & App.Minor & App.Revision
  159. Label3.Caption = "v" & App.Major & "." & App.Minor & "." & App.Revision
  160. End If
  161. Me.Caption = Me.Caption & " - " & Label3.Caption
  162. End Sub
  163. Public Sub InitAboutBox(Client As Boolean)
  164. If Client = True Then
  165. sP.Visible = False
  166. cP.Visible = True
  167. Label1.Caption = "NSocks - Client"
  168. cP.Visible = False
  169. sP.Visible = True
  170. Label1.Caption = "NSocks - Server"
  171. End If
  172. Label2.Caption = Label1.Caption
  173. Me.ZOrder 0
  174. End Sub
  175. Private Sub Label5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  176. Label5_MouseMove Button, Shift, X, Y
  177. End Sub
  178. Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  179. If Button = 1 Then
  180. If X < 0 Or Y < 0 Or X > Label5.Width Or Y > Label5.Height Then
  181. OverLabel = False
  182. Label5.ForeColor = &HC0&
  183. OverLabel = True
  184. Label5.ForeColor = &HC00000
  185. End If
  186. End If
  187. End Sub
  188. Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  189. If Button = 1 And OverLabel = True Then
  190. Label5.ForeColor = &HC0&
  191. wB.Navigate Label5.Caption, -1
  192. End If
  193. End Sub
  194.